TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/COMP/TEST/MULTOPAR.M

Text File | 1991-03-15 | 1.5 KB | 3 lines

⓪ ⓪ (*⓪!* Test für mehrdimensionale Open Arrays⓪!*)⓪ ⓪ (*$C-*)⓪ module t2;⓪ ⓪ FROM SYSTEM IMPORT ASSEMBLER, byte, word, longword;⓪ var lc: LONGCARD; w: word; c: CARDINAL;⓪ ⓪ ⓪ type t1 = record                (* 4 Byte *)⓪,w: CARDINAL;⓪,b: char⓪*END;⓪ ⓪%t2 = array [1..4] of t1;   (* 4*4 Byte *)⓪%String = array [0..5] of char;⓪ ⓪ PROCEDURE p0 (a: longarray of byte);⓪"BEGIN⓪$ASSEMBLER BREAK END;⓪"END p0;⓪ ⓪ PROCEDURE p2 (a: array of array of word);⓪"BEGIN⓪$ASSEMBLER BREAK END;⓪$(*$R+*)⓪$p0 (a);⓪$(*⓪$p2 (a);⓪$w:= a[c*(c+c*(c+c*c)),c*(c+c*(c+c*c)),c*(c+c*(c+c*c)),c*(c+c*(c+c*c))];⓪$ASSEMBLER BREAK END;⓪$c:= high (a);⓪$lc:= high (a[0]);⓪$c:= high (a[0,0]);⓪$*)⓪$ASSEMBLER BREAK END;⓪"END p2;⓪ ⓪ var l: LONGCARD;⓪$a1: t2;⓪$s1: array [0..0] of array [0..1] of array [0..2] of String;⓪ ⓪ begin⓪"ASSEMBLER BREAK END;⓪"p2(s1[0]); (* HIGH: 1/2/2 *)⓪"(*⓪"ASSEMBLER BREAK END;⓪"p (a1);⓪"*)⓪ end t2.⓪ ə
(* $FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$0000020B$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3$FFE967F3Ç$0000016CT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$0000020D$00000201$0000016C$FFE8E055$000001D8$FFE8E055$000001C2$0000016F$000001C2$FFE8E055$FFE8E055$FFE8E055$FFE8E055$00000367$0000020B$00000215îÇé*)